(defclass culori Culori)
(ppdeftemplate culori)
(bind ?c (new Culori))
(definstance culori ?c)
(call ?c setVisible TRUE)
(facts)
(run)

(bind ?pt (new java.awt.Point))
(set-member ?pt x 37)
(set-member ?pt y 42)
(get-member ?pt x)

